home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
stack.src
< prev
next >
Wrap
Text File
|
1990-10-09
|
335b
|
15 lines
%%HP: T(3)A(R)F(.);
@ by Jake Schwartz
\<<
"6: " @ that's 19 spaces.
IF DEPTH 7 \>=
THEN 7 PICK \->STR
ELSE ""
END 23 OVER SIZE - 3 MAX SWAP REPL 1 DISP
"5: " @ 19 spaces.
IF DEPTH 6 \>=
THEN 6 PICK \->STR
ELSE ""
END 23 OVER SIZE - 3 MAX SWAP REPL 2 DISP 1 FREEZE
\>>